Karel D. Robot - Buttons

Ziele:
Button und separate GUI-Methode

Informationen
zur Vertiefung

Da RD1 keine eigene Methode zum links drehen hat, lösen wir zunächst das Problem dadurch, daß wir im ControlFrm eine Formular-Methode dafür schreiben und sie dann mit einem neuen Button aufrufen.

1. Aufgabe:
GUI-Methode NachLinksDrehen im Formular schreiben

a) im INTERFACE-Teil die neue Prozedur deklarieren bei

TControlFrm = class(TFensterFrm)
    UserPnl : TPanel;
    ...
    ...
procedure NachLinksDrehen;
    procedure ItemsErzeugen; // darf nicht gelöscht werden!
end;

b) im IMPLEMENTATION-Teil unten den Code

procedure TControlFrm.NachLinksDrehen;
// -----------------------------------------------------------------
begin
    RD1.RechtsDrehen;
    RD1.RechtsDrehen;
    RD1.RechtsDrehen;
end;

2. Aufgabe:
Neuen Button auf das Formular ziehen

LinksButton

Gehen Sie genauso vor wie beim RechtsButton!

Starten und testen!

Merke: Häufig lassen sich bereits vorhandene Methoden
für andere Aufgaben wiederverwenden!

Aufbau
einer Unit